home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-03-11 | 2.5 KB | 88 lines | [TEXT/hscd] |
- /*
- * FM/2 2.x deinstallation program copyright (c) 1994/95 by M. Kimes
- *
- * This program removes the FM/2 folder and any OS2USER.INI records
- * for FM/2. Optionally it will wipe all files and remove all directories
- * created by the FM/2 installation program. Run from the FM/2 directory.
- *
- * For unattended use, remove the lines marked with "NOTE:" below and
- * see note at bottom of program.
- */
-
- '@Echo off'
- 'cls'
- 'echo ┌───────────────────────────────────────────────────────────────────┐'
- 'echo │ FM/2 2.x Deinstallation Program │'
- 'echo │ FM/2 is copyright (c) 1993-95 by M. Kimes │'
- 'echo │ All rights reserved │'
- 'echo └───────────────────────────────────────────────────────────────────┘'
-
- /* see if we might be in the right directory... */
-
- curdir = directory()
-
- rc = stream('fm3.exe','c','query exists')
- if rc = '' then
- do
- say 'Sorry, FM3.EXE not found. Must not be right directory. Terminating.'
- exit
- end
-
- /* tell user what we're doing, give him a chance to hit CTRL-C */
-
- say ''
- say ' **WARNING: This program uninstalls FM/2.'
- say ''
-
-
- /* NOTE: remove following 3 lines for unattended use... */
- say 'Press [Enter] (or CTRL-C then [Enter] to abort).'
- Pull dummy .
- say ''
-
-
- /* load rexx utility functions */
-
- call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
- call SysLoadFuncs
-
- say 'Working...'
-
- /* remove FM/2 folder object */
- call SysDestroyObject "<FM3_Folder>"
-
- /* remove all FM/2-related information from user ini file */
- call SysIni 'USER', 'FM/2'
- call SysIni 'USER', 'FM2'
-
- /* done */
-
- say ''
- /* NOTE: remove following lines for unattended use... */
- say "Delete programs and directories "curdir
- say "and "curdir"\utils"
- say "as follows, and then you're done:"
- say "CD\"
- say "DEL "curdir"\UTILS\*"
- say "RMDIR "curdir"\UTILS"
- say "DEL "curdir"\*"
- say "RMDIR "curdir
- say ""
- say "Shall I perform these tasks for you?"
- parse upper pull dummy
- if left(dummy,1) = 'Y' then
- do
- /* NOTE: Keep this section for unattended use... */
- 'CD\'
- '@ECHO ON'
- 'ECHO Y | DEL 'curdir'\UTILS\* && RD 'curdir'\UTILS'
- 'ECHO Y | DEL 'curdir'\* && RD 'curdir
- '@ECHO OFF'
- end
- else say "Okay, it's a simple enough operation that even a human can do it. :-)"
- say ""
- say "Don't forget to remove any PATH statements from CONFIG.SYS that you"
- say "entered for FM/2 or its utilities."
- say ""
- say "I'm done now."
-